home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / REGISTER.ZIP / REGISTER.PRG < prev    next >
Text File  |  1996-04-26  |  2KB  |  76 lines
  1. SET FORMAT TO freg NOCLEAR
  2.  
  3. FOPEN thefile reg.cfg 10 256
  4. FLREAD thefile z line
  5. FLREAD thefile z line2
  6. FCLOSE thefile
  7.  
  8. line = RTrim(CRTrim(line))
  9. c = Int( (46 - Len(line))/2 ) + 16
  10.  
  11. SET COLOR TO N/N
  12. @ 0,0 CLEAR TO 23,79
  13. SET COLOR TO W/W
  14. @ 5,15 CLEAR TO 16,61
  15. SET COLOR TO W+/W
  16. @ 5,15 SAY "┌"
  17. @ 5,16 TO 5,61
  18. @ 5,61 SAY "┐"
  19. @ 6,15 TO 16,15
  20. @ 16,15 SAY "└"
  21.  
  22. SET COLOR TO GR+/B
  23. @ 6,16 SAY "                                              "
  24. @ 6,c SAY line
  25.  
  26. SET COLOR TO N/W
  27. @ 6,61 TO 16,61              
  28. @ 16,16 TO 16,61               
  29. @ 16,61 SAY "┘"                
  30.  
  31.  
  32.  
  33. addr1 = Replicate(Chr(32),27)
  34. addr2 = Replicate(Chr(32),27)
  35. city  = Replicate(Chr(32),15)
  36. sta   = SubStr(line2,1,2)
  37. phn   = SubStr(line2,3,3)
  38. dphn  = phn + "       "
  39. vphn  = phn + "       "
  40. zip   = SubStr(line2,6,5)
  41. dob   = "  /  /  "
  42.  
  43. @ 8,18  SAY "Name:        [                           ]" 
  44. @ 8,32  SAY  uName()
  45. @ 9,18  SAY "Address:     [                           ]"
  46. @ 10,18 SAY "Addr (2):    [                           ]"
  47. @ 11,18 SAY "City:        [               ]"
  48. @ 12,18 SAY "State:       [  ]      Zip: [     ]"
  49. @ 13,18 SAY "Data Phone#"
  50. @ 14,18 SAY "Voice Phone#"
  51. @ 15,18 SAY "BirthDate:"  
  52. DO WHILE .NOT. UpDated()
  53.    READ
  54. ENDDO
  55. loc = city + ", " + sta
  56. dob = CtoD(dob)
  57. d = ulReplace(UNOTES,addr1)
  58. d = ulReplace(ULOCATION,city)
  59. DOTBBS TYPE 32 OPTDATA "Q1"
  60. d = ulReplace(UNOTES,addr2)
  61. d = ulReplace(ULOCATION,dphn)
  62. DOTBBS TYPE 32 OPTDATA "Q2"
  63. d = ulReplace(UNOTES,zip)
  64. d = ulReplace(ULOCATION,sta)
  65. DOTBBS TYPE 32 OPTDATA "Q3"
  66. d = ulReplace(UNOTES," ")
  67. d = ulReplace(ULOCATION,loc)
  68. USE user 
  69. APPEND BLANK
  70. REPLACE uname WITH uName(), phone WITH vphn, bday WITH dob
  71. CLOSE DATABASES
  72. k = InKey(1)
  73. SET COLOR TO N/N
  74. @ 0,0 CLEAR
  75. QUIT
  76.